home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / visitor.dxr / glossary_1_init glossary.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  2.2 KB  |  31 lines
  1. global gModule4, gButtonManager, gGlossary, gCurrentResource, gScrollingText
  2.  
  3. on exitFrame
  4.   unLoadResource(["bookweblist", "timeline"])
  5.   if not objectp(gGlossary) then
  6.     set alphabet to [#ac: [1, 27], #di: [28, 52], #jm: [53, 62], #nr: [63, 78], #su: [79, 101], #vz: [102, 110]]
  7.     set gGlossary to new(script "resourceManagerObjectScript", alphabet, "words", 1)
  8.   else
  9.     mReset(gGlossary)
  10.   end if
  11.   set gCurrentResource to gGlossary
  12.   mAddPageObject(gModule4, mAddButton(gButtonManager, 29, "glossary1Button", "mSetCategory(gGlossary, #ac)"))
  13.   mAddPageObject(gModule4, mAddButton(gButtonManager, 26, "glossary2Button", "mSetCategory(gGlossary, #di)"))
  14.   mAddPageObject(gModule4, mAddButton(gButtonManager, 31, "glossary3Button", "mSetCategory(gGlossary, #jm)"))
  15.   mAddPageObject(gModule4, mAddButton(gButtonManager, 32, "glossary4Button", "mSetCategory(gGlossary, #nr)"))
  16.   mAddPageObject(gModule4, mAddButton(gButtonManager, 33, "glossary5Button", "mSetCategory(gGlossary, #su)"))
  17.   mAddPageObject(gModule4, mAddButton(gButtonManager, 34, "glossary6Button", "mSetCategory(gGlossary, #vz)"))
  18.   mAddPageObject(gModule4, mAddButton(gButtonManager, 6, "upButton", "mUpArrow(gCurrentResource)"))
  19.   mAddPageObject(gModule4, mAddButton(gButtonManager, 7, "downButton", "mDownArrow(gCurrentResource)"))
  20.   mAddPageObject(gModule4, mAddButton(gButtonManager, 23, "up2", " mUpArrow(gScrollingText)"))
  21.   mAddPageObject(gModule4, mAddButton(gButtonManager, 24, "down2", " mDownArrow(gScrollingText)"))
  22.   set gScrollingText to 0
  23.   set gScrollingText to new(script "scrollingTextObjectScript", 20)
  24.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 29, "acLabel", 9, point(320, 240)))
  25.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 26, "diLabel", 9, point(320, 240)))
  26.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 31, "jmLabel", 9, point(320, 240)))
  27.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 32, "nrLabel", 9, point(320, 240)))
  28.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 33, "suLabel", 9, point(320, 240)))
  29.   mAddPageObject(gModule4, new(script "rolloverAnimObjectScript", 34, "vzLabel", 9, point(320, 240)))
  30. end
  31.